#!/usr/bin/perl -w

my @tmp;
push(@tmp, "hello ", "what is  your ", "name?");
my $tmp2 = join(' ', @tmp);
#my @tmp3 = join(' ', @tmp);
print "tmp2: $tmp2\n";
foreach (@tmp)
{
	print "line: $_\n";
}
